%include	'Macros.inc'
cr	equ	0Dh			;������� �������
lf	equ	0Ah			;������� ������
	org	100h
Start:	jmp	Begin
;	������ ���������
Lname0	db	81 			;������������ ����� ����� �����
Lname	db	0			;����������� ����� ����� �����
Namefile times	81	db	0	;��� �����
;-----------------------------------------------------------------------
;
;	������� ���� ���������
;	-----------------------------------------
;
Begin:
;���� ������ ����� �����
	call	Clear_screen		;������� ������
	Out_str	QuestNameFile		;������ �� ����� �����
	mov	ah,0ah			;������� ����� ������
	mov	dx,Lname0		;DX <- �����-�������� ������ �����
	int	21h			;���� ������
	call	Send_crlf		;������� ������
	xor	bx,bx			;BX <- 0
	mov	bl,[Lname]		;BX <- ����� ����� �����
	cmp	bx,0			;���� ��� ����� �� �������
	je	.Exit			; �� �����
	mov	[Namefile+bx],byte 0	;������ �������� �����
;�������� �����
	mov	ah,41h			;��������
	mov	dx,Namefile		; �����
	int	21h			; 
	jnc	.Exit			;���� �������
	Out_str	ErrorDelFile		;��������� �� ������ �������� �����
	call	Send_crlf		;������� ������
	call	Read_byte		;���� �������
	jmp	.Exit			;�����
;�����
.Exit:	mov	ax,4c00h
	int	21h			;������� � DOS
QuestNameFile	db	'Enter file name: $'
ErrorDelFile	db	'Error deletion file $'
;
;	������� ������ ������
;	---------------------
;
Send_crlf:
	push	ax
	push	dx
	mov	ah,2 		;������� ������
	mov	dl,cr		;��������� ������
	int	21h		;����� �������
	mov	dl,lf
	int	21h		; -"-
	pop	dx
	pop	ax
	ret
;
;	������� ������
;	--------------
;
Clear_screen:
	push	ax
	push	bx
	push	cx
	push	dx
	xor	al,al		;�������� ��� ����
	xor	cx,cx		;������� ����� ���� � (0,0)
	mov	dh,49		;������ ������ ������ - 49
	mov	dl,79		;������ ������� � 79 �������
	mov	bh,7		;��������� ���������� ��������
	mov	ah,6		;��������
	int	10h		; ����
	xor	dl,dl		;������� ����������
	xor	dh,dh		; �������
	xor	bx,bx		;������� �������������
	xor	al,al		;���������
	mov	ah,2		; �������
	int	10h		; � �������� �����
	pop	dx
	pop	cx
	pop	bx
	pop	ax
	ret
;
;	��������� ��� ������� � ����������
;	----------------------------------
; �����: AL - ��� ASCII ������� (0 - ����������� ������)
;	 AH - ����-��� �������
;
Read_byte:
	mov	ah,0		;���� �������
	int	16h		; ��� ���
	ret
;	����������� ������� �����
Stek	times	64	dw	0	;����� ������� �����
Lprog	equ	$-Start+100h		;����� ��������� (������� PSP)